home *** CD-ROM | disk | FTP | other *** search
- * *********************************************************
- * *
- * * 08/11/94 141.SPR 19:22:23
- * *
- * *********************************************************
- * *
- * * Duncan Halstead
- * *
- * * Copyright (c) 1994 CD-ROM, Inc.
- * * 603 Park Point Dr.
- * * Golden, CO 80401
- * *
- * * Description:
- * * This program was automatically generated by GENSCRN.
- * *
- * *********************************************************
-
-
- #REGION 0
- REGIONAL m.currarea, m.talkstat, m.compstat
-
- IF SET("TALK") = "ON"
- SET TALK OFF
- m.talkstat = "ON"
- ELSE
- m.talkstat = "OFF"
- ENDIF
- m.compstat = SET("COMPATIBLE")
- SET COMPATIBLE FOXPLUS
-
- m.rborder = SET("READBORDER")
- SET READBORDER ON
-
- * *********************************************************
- * *
- * * Windows Window definitions
- * *
- * *********************************************************
- *
-
- IF NOT WEXIST("_qsh15iuej")
- DEFINE WINDOW _qsh15iuej ;
- AT 0.000, 0.000 ;
- SIZE 29.846,58.800 ;
- TITLE "Tote Boxes" ;
- FONT "MS Sans Serif", 8 ;
- FLOAT ;
- CLOSE ;
- MINIMIZE ;
- SYSTEM
- MOVE WINDOW _qsh15iuej CENTER
- ENDIF
-
-
- * *********************************************************
- * *
- * * 141/Windows Screen Layout
- * *
- * *********************************************************
- *
-
- #REGION 1
- IF WVISIBLE("_qsh15iuej")
- ACTIVATE WINDOW _qsh15iuej SAME
- ELSE
- ACTIVATE WINDOW _qsh15iuej NOSHOW
- ENDIF
- @ 0.000,0.000 SAY (LOCFILE("bmp\141.bmp","BMP|ICO|PCT|ICN", "Where is 141?" )) BITMAP ;
- SIZE 29.538,57.600 ;
- ISOMETRIC ;
- STYLE "T"
- @ 2.308,1.200 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 8.769,28.000,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15ivbe()
- @ 10.923,1.000 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 5.308,32.400,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15ivhc()
- @ 2.231,33.400 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 11.385,23.000,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15ivmo()
- @ 16.462,36.800 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 12.385,19.800,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15ivxn()
- @ 16.538,0.200 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 12.308,36.000,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15iw32()
-
- IF NOT WVISIBLE("_qsh15iuej")
- ACTIVATE WINDOW _qsh15iuej
- ENDIF
-
- READ CYCLE ;
- DEACTIVATE .T.
-
- RELEASE WINDOW _qsh15iuej
-
- #REGION 0
-
- SET READBORDER &rborder
-
- IF m.talkstat = "ON"
- SET TALK ON
- ENDIF
- IF m.compstat = "ON"
- SET COMPATIBLE ON
- ENDIF
-
-
- * *********************************************************
- * *
- * * _QSH15IVBE abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 141, Record Number: 3
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 1
- * *
- * *********************************************************
- *
- FUNCTION _qsh15ivbe && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 922
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15IVHC abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 141, Record Number: 4
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 2
- * *
- * *********************************************************
- *
- FUNCTION _qsh15ivhc && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 923
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15IVMO abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 141, Record Number: 5
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 3
- * *
- * *********************************************************
- *
- FUNCTION _qsh15ivmo && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 925
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15IVXN abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 141, Record Number: 6
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 4
- * *
- * *********************************************************
- *
- FUNCTION _qsh15ivxn && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 926
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15IW32 abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 141, Record Number: 7
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 5
- * *
- * *********************************************************
- *
- FUNCTION _qsh15iw32 && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 924
- DO ZOOM.SPR